Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/XCMDS&XFCNS/RecentProc/cards.xml

Text File | 1994-05-01 | 2.9 KB | 85 lines

card_2938.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2938</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2734</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3130.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>127</left>
            <top>19</top>
            <right>227</right>
            <bottom>41</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpanswer file "" of type textif the result is "Cancel" or it="" then exit to hypercardset cursor to watchput it into theFileopen file theFileread from file theFile for 24000put it into theStuffclose file theFileput (theFile&".rev") into theFile-- put "" into cd fld 1repeat with x=1 to number of lines in theStuffput line x of theStuff into theLineif"/" is not in theLine then next repeatset cursor to busyget offset("/",theLine)put char 1 to it of theLine into theIntrodelete char 1 to it of theLineput "GET  "&quote before theLineput quote after theLinerepeat until (char 1 to 4 of theIntro) is a integerdelete char 1 of theIntroend repeatget ((round((word 1 of theIntro)/1024)&tab&theLine)&return)put itput it after temp-- put it after cd fld 1end repeatopen file theFilewrite temp to file theFileclose file theFileend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>44</top>
            <right>352</right>
            <bottom>296</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text></text>
    </content>
    <name></name>
    <script></script>
</card>